home *** CD-ROM | disk | FTP | other *** search
/ The Scorpion King Cardz / The Scorpion King Cardz - Disc 1 - Mathays.iso / pc / assets / scorp_postcards_send.dxr / 00003_getEmailTo.ls < prev    next >
Encoding:
Text File  |  2002-03-26  |  1.0 KB  |  29 lines
  1. global gTheAddr, gEmailErrorMessage, gTotalEmailToFields
  2.  
  3. on getEmailTo
  4.   gTheAddr = EMPTY
  5.   repeat with i = 1 to gTotalEmailToFields
  6.     fieldName = "rec" & i
  7.     defaultText = "friend e-mail " & i
  8.     cutText = the text of field fieldName
  9.     put removeEndSpaces(cutText) into field fieldName
  10.     if (the text of field fieldName contains defaultText) = 0 then
  11.       if checkEmailField(fieldName) = 0 then
  12.         gTheAddr = the text of field fieldName
  13.         next repeat
  14.       end if
  15.       if the text of field fieldName <> EMPTY then
  16.         if gEmailErrorMessage = EMPTY then
  17.           gEmailErrorMessage = "Friend e-mail " & i & " is not a valid e-mail address."
  18.         else
  19.           gEmailErrorMessage = gEmailErrorMessage & RETURN & "Friend e-mail " & i & " is not a valid e-mail address."
  20.         end if
  21.         clearECardPic()
  22.       end if
  23.     end if
  24.   end repeat
  25.   if gTheAddr = EMPTY then
  26.     gEmailErrorMessage = gEmailErrorMessage & RETURN & "You must supply at least one valid friend e-mail address."
  27.   end if
  28. end
  29.